home *** CD-ROM | disk | FTP | other *** search
/ Megahits 3 / Megahits 3 (1994)(GTI - Rhein-Main-Soft)(DE)[!].iso / module / moremods / default.mod < prev    next >
Text File  |  1994-10-14  |  4KB  |  99 lines
  1. DEFAULT.MOD
  2. Flyer #1 @9438
  3. Sat Dec 21 16:14:29 1991
  4. ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  5. ³ Mod Name: DEFAULT.MOD                   Mod Author: Flyer 1@9438           ³
  6. ³ Difficulty: Û±                          Date: December 21, 1991            ³
  7. ³ WWIV Version: 4.2                                                          ³
  8. ³ Description:  Makes the defaults section colorized, and just makes it      ³
  9. ³               look alot better.                                            ³
  10. ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  11.  
  12.   After modding my board alot, most of the board looked really nice and
  13.   colorful except for one part of it.  That was the defaults section.
  14.   Whenever I would hit 'D' for defaults, it would just come up colorless,
  15.   and it just didn't look good.  So I made the whole Defaults menu look
  16.   different.
  17.  
  18.  
  19. 1)  Back up your source (Why am I even saying this?)
  20.  
  21. 2)  Load up DEFAULTS.C, and go down to around line 55, or search for
  22.     void print_cur_stat().
  23.  
  24. 3)  All this mod really requires is a block copy, so just delete the entire
  25.     void, and replace it with mine.  Here is the new void:
  26.  
  27.  
  28. void print_cur_stat()
  29. {
  30.   char s[81],s1[81],s2[81];
  31.   userrec ur;
  32.  
  33.   outchr(12);
  34.  
  35.    pl("7ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»");
  36.    pl("4       Defaults       7º");
  37.    pl("7ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹");
  38.   npr("21. Screen size        7º 1%d X %d\r\n",
  39.         thisuser.screenchars,
  40.         thisuser.screenlines);
  41.   npr("22. ANSI               7º 1%s\r\n",
  42.      (thisuser.sysstatus & sysstatus_ansi)?
  43.        ((thisuser.sysstatus & sysstatus_color)? "Color":"Monochrome"):
  44.      "No ANSI");
  45.   npr("23. Pause on screen    7º 1%s\r\n",
  46.      (thisuser.sysstatus & sysstatus_pause_on_page)?"On":"Off");
  47.   outstr("24. Mailbox            7º 1");
  48.   if ((thisuser.forwardsys==0) && (thisuser.forwardusr==0))
  49.     pl("Normal");
  50.   else {
  51.     if (thisuser.forwardsys) {
  52.       sprintf(s,"Forward to #%u @%u.",thisuser.forwardusr,thisuser.forwardsys);
  53.       pl(s);
  54.     } else {
  55.       read_user(thisuser.forwardusr,&ur);
  56.       if (ur.inact & inact_deleted) {
  57.         thisuser.forwardusr=0;
  58.         pl("Normal");
  59.       } else {
  60.         sprintf(s,"Forward to %s",nam(&ur,thisuser.forwardusr));
  61.         pl(s);
  62.       }
  63.     }
  64.   }
  65.   pl("25. Configured Q-scan  7º");
  66.   pl("26. Change password    7º");
  67.   pl("27. Update macros      7º");
  68.   if (okansi()) {
  69.     pl("28. Change colors      7º");
  70.     npr("29. Full screen editor 7º 1%s\r\n",
  71.       ((thisuser.defed) && (thisuser.defed<=numed))?
  72.         editors[thisuser.defed-1].description:"None.");
  73.     npr("2A. Extended colors    7º 1%s\r\n",
  74.       (thisuser.sysstatus & sysstatus_funky_colors)?"Yes":"No");
  75.   }
  76.   npr("2B. Optional lines     7º 1%d\r\n",thisuser.optional_val);
  77.   if (thisuser.wwiv_regnum)
  78.     npr("2W. WWIV reg num       7º 1%ld\r\n",thisuser.wwiv_regnum);
  79.   else
  80.     pl("2W. WWIV reg num       7º 1<NONE>");
  81.   pl("2Q. Quit to main menu  7º");
  82.   pl("7ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ");
  83.   nl();
  84. }
  85.  
  86. 4)  Copy your new BBS.EXE, and go look at it and see if it looks ok.
  87.  
  88. Thats it!!!!
  89.  
  90. As a favor to me, please email me and tell that you have seen this mod
  91. around, and that you decided to install it.  I would like to know how it
  92. got around.
  93.  
  94. Flyer - 12/21/91
  95. 
  96.              5ô                                                  5ô
  97.     5ÍÍÍÍÍÍÍÍ͵  2Sky Harbor 7þ 2Jacksonville7,2 FL 7þ 2(904) 744-6241  5ÆÍÍÍÍÍÍÍÍÍ
  98.              5õ      1Auto Validation for Sysops. WWIV Support    5õ
  99.                           3WWIVnet @9438    Call Now!!